home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / msdos / dbhamlog / injijcg.prg < prev    next >
Text File  |  1991-10-18  |  1KB  |  60 lines
  1. ************ 印刷 ( 検索 市郡番号 ) ************
  2. **************** INJIJCG.PRG ****************
  3. SET CONSOLE OFF
  4. WAIT
  5. SET CONSOLE ON
  6. SET DEVICE TO PRINT
  7.  
  8. GOTO TOP
  9. FIND &JCG
  10. *SEEK DTOC(MDY)
  11.  
  12. *IF EOF()
  13. *GOTO TOP
  14. *LOCATE FOR MMDDYY>MDY .AND. MMDDYY<=MDYE
  15. *ENDIF
  16.  
  17. DO WHILE .NOT. EOF() && *********************************1
  18.   @ 1,2   SAY "市郡番号"
  19.     @ 1,15 SAY "アマチュア 無 線 ＱＳＯ ログ 管 理 システム    印刷JCG.PRG"
  20.   @ 2,2   SAY JCG
  21.     @ 2,15 SAY "===========================================   "
  22.     @ 4,1 SAY "年/月/日  呼出符号 電波 周波数 氏  名     住         所              JCC_G QSL"
  23.     @ 5,1 SAY "------------------------------------------------------------------------------"
  24.  STORE 6 TO MGYOU
  25.  DO WHILE MGYOU<56 .AND. .NOT. EOF() && *******************2
  26. ****************
  27.     L=LEN(JCG)
  28.     FR=LEFT(JCC_G,L)
  29.   IF FR<>JCG .OR. LEN(TRIM(JCC_G))<>L
  30.     EXIT
  31.   ENDIF
  32. ****************
  33.     @ MGYOU,1  SAY MMDDYY
  34.     @ MGYOU,11 SAY CALL
  35.     @ MGYOU,20 SAY WAVE
  36.     @ MGYOU,26 SAY FREQ 
  37.     @ MGYOU,32 SAY NAME 
  38.     @ MGYOU,43 SAY ADDRES 
  39.     @ MGYOU,70 SAY JCC_G
  40.     @ MGYOU,76 SAY QSL 
  41.  
  42.     STORE MGYOU+1 TO MGYOU
  43.    ENDIF
  44.   SKIP
  45.  LOOP
  46.  
  47.  ENDDO && **********************************************2
  48.  
  49.     L=LEN(JCG)
  50.     FR=LEFT(JCC_G,L)
  51.   IF FR<>JCG .OR. LEN(TRIM(JCC_G))<>L
  52.     EXIT
  53.   ENDIF
  54.  
  55.  ENDDO && **********************************************1
  56.  
  57. @ 1,1 SAY "    "
  58. SET DEVICE TO SCREEN
  59. RETURN
  60.